﻿Public Class FrmLoggInn

    Private Sub btnLoggInn_Click(sender As Object, e As EventArgs) Handles btnLoggInn.Click

        If Not Valider.sjekkBruker(txtBrukerNavn.Text) Then
            MsgBox("Feil navneformat på brukernavn, må inneholde både bokstav og tall")
            Exit Sub
        End If

        If Not Valider.sjekkBruker(txtPassord.Text) Then
            MsgBox("Feil passord format, må inneholde både bokstav og tall")
            Exit Sub
        End If

        Form1.innloggetBruker = New Ansatt(txtBrukerNavn.Text, txtPassord.Text)

        If Form1.innloggetBruker.LoggInn() = True Then
            MsgBox(Form1.innloggetBruker.FulltNavn & " ble logget inn.")

            Form1.Show()
            Me.Close()
        Else
            MsgBox("Pålogging feilet!")
            txtBrukerNavn.Clear()
            txtPassord.Clear()

        End If

        If Form1.innloggetBruker.rolle_admin = False Then
            Form1.TabBrukeradministrasjon.Enabled = False
        Else
            Form1.TabBrukeradministrasjon.Enabled = True
        End If

    End Sub


End Class